Kunsthaus Tacheles/Kunsthaus Tacheles.iso/flyymca.dir/00001_Script_main

Text File | 1996-09-29 | 4KB | 197 lines

global menuName, firstChannel, lastChannel

on startMovie
  put EMPTY into menuName
end startMovie

on stopmovie
  hideHilite
end stopmovie

on idle
  if menuName = EMPTY then exit
  repeat with x = firstChannel to lastChannel
    if rollover(x) then
      showHilite x
      exit
    end if
  end repeat
  hideHilite
end idle

on showHilite which
  puppetSprite 30, TRUE
  set the locV of sprite 30 = the locV of sprite which
  updateStage
end showHilite

on hideHilite
  puppetSprite 30, FALSE
  set the locV of sprite 30 = -999
  updateStage
end hideHilite

on jumpTo where
  hideHilite
  puppetSound "click"
  updateStage
  cursor 4
  puppetTransition 9,0,4
  go to frame where
  cursor 0
  puppetSound 0
end jumpTo

on menuTo where
  hideHilite
  cursor 4
  puppetTransition 9,0,4
  go to frame where
  cursor 0
end menuTo

-- go to "label" + ⁿbergang centerOut
on goTo where
  hideHilite
  cursor 4
  puppetTransition 9,0,4
  go to frame where
  cursor 0
end goTo

on goMain
  --  hideHilite
  puppetSound "click"
  updateStage
  set the locV of sprite 10 = -999
  set myCursor to -1
  cursor -1
  puppetTransition 9,0,4
  go to frame "MainPlan"
  puppetSound 0
  updateStage
end goMain

on flashButton
  puppetSprite the clickOn, TRUE
  puppetSound "click"
  put the name of cast the castNum of sprite the clickOn into rootName
  set the castNum of sprite the clickOn = the number of cast (rootName && "lit")
  updateStage
  waitFor .1
  set the castNum of sprite the clickOn = the number of cast rootName
  puppetSprite the clickOn, FALSE
  puppetSound 0
  updateStage
end flashButton

on waitFor seconds
  put the ticks into now
  repeat while the ticks < now + (seconds * 60)
  end repeat
end waitFor

-- go to "label" + stopMovie
-- + flashButton + ⁿbergang edgesIn
on returnTo where
  stopQT
  flashButton
  cursor 4
  puppetTransition 10,0,4
  go to frame where
  cursor 0
end returnTo

on returnFromHelp
  flashButton
  global helpReturn
  cursor 4
  puppetTransition 10,0,4
  go to frame helpReturn
  cursor 0
end returnFromHelp

on stopQT
  put the castNum of sprite 4 into theCast
  if theCast = 0 then exit
  if the castType of cast theCast = #digitalvideo then
    set the movieRate of sprite 4 = 0
    set the movieTime of sprite 4 = 0
    if the width of sprite 4 > 500 then
      set the loc of sprite 4 = point(-999,-999)
    end if
    updateStage
    puppetSprite 4, FALSE
  end if
end stopQT

-- go to the frame + 1
-- stop movie + flashButton
-- ubergang wipeLeft
on goNextFrame
  stopQT
  flashButton
  cursor 4
  puppetTransition 2,1,4
  go to the frame + 1
  cursor 0
end nextFrame

on nextArtist
  stopQT
  flashButton
  cursor 4
  puppetTransition 2,1,4
  go to marker(1)
  cursor 0
end nextArtist

on nextMenu where
  stopQT
  flashButton
  cursor 4
  puppetTransition 2,1,4
  go to frame where
  cursor 0
end nextMenu

-- go to the frame - 1
-- stop movie + flashButton
-- ubergang wipeLeft
on goPrevFrame
  stopQT
  flashButton
  cursor 4
  puppetTransition 1,1,4
  go to the frame -1
  cursor 0
end prevFrame

on prevArtist
  stopQT
  flashButton
  cursor 4
  puppetTransition 1,1,4
  go to marker(-1)
  cursor 0
end prevArtist

on prevMenu where
  stopQT
  flashButton
  cursor 4
  puppetTransition 1,1,4
  go to frame where
  cursor 0
end prevMenu


-- on displayMessage theMessage
--   openXlib "Misc_X"
--   if objectP(myXobj) then myXobj(mDispose)
--   put Misc_X(mNew) into myXobj
--   myXobj(mAnswer, theMessage, "","","OK")
--   myXobj(mDispose)
--   closexlib "Misc_X"
-- end displayMessage